home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Answers 2002 January
/
PC Answers January 2002.7z
/
PC Answers January 2002.bin
/
graphics
/
freepixl
/
_SETUP.1
/
Statuswi.pxl
< prev
next >
Wrap
Text File
|
2000-12-23
|
3KB
|
113 lines
Initialize:
WinGetActive(Win$)
UseCoordinates(PIXEL)
{GoSub Draw_Blue_Shade}
UseBackGround(TRANSPARENT,192,192,192)
DrawBackGround
WaitInput(100) {let NT and 95 catch up}
InfoMenu(REMOVE)
SetMenu()
WinLocate(Win$,200,10,640,220,Res)
Title$ = "Status Window Example"
WinTitle(Win$, Title$)
SetMenu("Exit!",Leave,
ENDPOPUP,
"Status Window",IGNORE,
"Enable StatusTOP",EnableTOP,
"Enable StatusBTM",EnableBTM,
"Enable Status Parts",EnableParts,
"Disable Status",Disable,
"Write Parts",WriteParts,
"Test",DoAll,
SEPARATOR,
"Background",Bkg,
ENDPOPUP,
"Str Replace",Replace,
ENDPOPUP)
Wait_for_Input:
WaitInput()
Leave:
End
Replace:
DrawBackGround
UseFont("Arial",11,21,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
String0$ = "g:\images\abcfbnd1.bmp"
String1$ = "bmp"
String2$ = "jpg"
DrawText(10,10,String0$)
StrRepl(String0$,String1$,String2$,Res)
If Res= 1 Then DrawText(10,35,String0$)
Goto Wait_for_Input
DoAll:
GoSub Sub_1
Goto Wait_for_Input
EnableTOP:
StatusWindow(ENABLE,TOP,1,200,0,0,0)
Goto Wait_for_Input
EnableBTM:
StatusWindow(ENABLE,BOTTOM,0,100,200,0,0)
Goto Wait_for_Input
EnableParts:
StatusWindow(ENABLE,BOTTOM,4,160,210,270,-1)
Goto Wait_for_Input
WriteParts:
GoSub Sub_1
Goto Wait_for_Input
Disable:
StatusWindow(DISABLE,BOTTOM,0,0,0,0,0)
Goto Wait_for_Input
Bkg:
WinGetClientRect("",cx1,cy1,cx2,cy2)
InvertRectangle(cx1,cy1,cx2,cy2)
Goto Wait_for_Input
Sub_1:
StatusWindow(ENABLE,BOTTOM,4,160,210,270,-1)
Sub_2:
DrawBackGround
WinGetClientRect("",cx1,cy1,cx2,cy2)
cx2 = cx2 - 30 cy2 = cy2 - 15
UseFont("Arial",7,17,BOLD,NOITALIC,NOUNDERLINE,255,255,255)
DrawTextExt(31,16,cx2,cy2,
"Example of a multi-part status bar, showing various
sized parts and text, in the default position at the
bottom of the application client area. When the
window is resized, the status bar is automatically
redrawn with the existing text.", LEFT)
cx2-- cy2--
UseFont("Arial",7,17,BOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawTextExt(30,15,cx2,cy2,
"Example of a multi-part status bar, showing various
sized parts and text, in the default position at the
bottom of the application client area. When the
window is resized, the status bar is automatically
redrawn with the existing text.", LEFT)
DrawStatusWinText(0,"Part#0")
DrawStatusWinText(1,"Part#1")
DrawStatusWinText(2,"Part#2")
DrawStatusWinText(3,"Part#3")
Return